home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / orbital / orbital18.exe / orbscript / SISTEMA / raw.ini < prev    next >
Encoding:
INI File  |  1997-08-31  |  22.6 KB  |  525 lines
  1. [script]
  2. n0=;                                    <<Orbital Script 1.8>> ** By Estepario ** 
  3. n1=;
  4. n2=#lusers on
  5. n3=raw 251:* {
  6. n4=  echo 6 -a Usuarios en  $+ $nick $port $+ 
  7. n5=  %lusers.med.1 = $parm4 + $parm7
  8. n6=  %lusers.med.2 = %lusers.med.1 / $parm10
  9. n7=  echo 3 -a Hay %lusers.med.1 usuarios en $parm10 servidores
  10. n8=  echo 3 -a Una media de %lusers.med.2 usuarios por servidor
  11. n9=  halt
  12. n10=}
  13. n11=raw 252:* {
  14. n12=  %lusers.med.3 = %lusers.med.1 / $parm2
  15. n13=  echo 3 -a Hay $parm2 operadores en el IRC
  16. n14=  echo 3 -a Una media de %lusers.med.3 usuarios por operador
  17. n15=  halt
  18. n16=}
  19. n17=raw 254:* {
  20. n18=  %lusers.med.4 = %lusers.med.1 / $parm2
  21. n19=  echo 3 -a Hay $parm2 canales formados
  22. n20=  echo 3 -a Una media de %lusers.med.4 usuario(s) por canal
  23. n21=  halt
  24. n22=}
  25. n23=raw 253:*:{
  26. n24=  if ($parm2 == $null) halt | else echo 3 -a $parm2* | halt  
  27. n25=}
  28. n26=raw 255:*:{
  29. n27=  echo 3 -a $parm2* | unset %lusers.* | halt
  30. n28=}
  31. n29=#lusers end
  32. n30=#autoaway off
  33. n31=raw 317:* { if (($parm3 > %idle) && (%idle != 0) && ($parm2 == $me) && (%autoaway == on) && (%awayswitch == off)) {
  34. n32=    set %tempnick %normnick | nick %awaynick 
  35. n33=    away : Auto-Away ** %idlemins minutos
  36. n34=    ame esta away : Auto-Away ** %idlemins minutos 
  37. n35=    .enable #record
  38. n36=    .disable #redirec
  39. n37=    .timer101 off
  40. n38=  }
  41. n39=}
  42. n40=#autoaway end
  43. n41=#motd on
  44. n42=raw 1:*:halt
  45. n43=raw 2:*:halt
  46. n44=raw 3:*:halt
  47. n45=raw 4:*:halt
  48. n46=raw 371:*:halt
  49. n47=raw 372:*:halt 
  50. n48=raw 373:*:halt
  51. n49=raw 374:*:halt 
  52. n50=raw 375:*:halt 
  53. n51=raw 376:*:halt
  54. n52=#motd end
  55. n53=#clones off
  56. n54=raw 352:* {
  57. n55=  if ($parm4 !isin %address) { %address = %address $parm4 }
  58. n56=  if ([ %addr [ $+ [ $parm4 ] ] ] != $null) {
  59. n57=    if ([ %clone [ $+ [ $parm4 ] ] ] == $null) {
  60. n58=      set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] , $parm6
  61. n59=    }
  62. n60=    else {
  63. n61=      set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] , $parm6
  64. n62=    }
  65. n63=  }
  66. n64=  else {
  67. n65=    set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6
  68. n66=  }
  69. n67=  halt
  70. n68=}
  71. n69=raw 315:* {
  72. n70=  .disable #clones
  73. n71=  set %a 1
  74. n72=  :next
  75. n73=  set %token $token(%a,32,%address)
  76. n74=  if (%token == $null) { goto done } | else {
  77. n75=    if ([ %clone [ $+ [ %token ] ] ] != $null) {
  78. n76=      inc %total | inc %a
  79. n77=      if (%option == 1) { write $mircdirsistema\raw.txt /echo 3 %chan %total $+ .- [ %clone [ $+ [ %token ] ] ] * %token }
  80. n78=      if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan %total $+ .- [ %clone [ $+ [ %token ] ] ] * %token }
  81. n79=      unset [ %clone [ $+ [ %token ] ] ]
  82. n80=      unset [ %addr [ $+ [ %token ] ] ]
  83. n81=      goto next
  84. n82=    }
  85. n83=    else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next }
  86. n84=  }
  87. n85=  :done
  88. n86=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 6 %chan Fin de lista ** Total: %total }
  89. n87=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Fin de lista ** Total: %total }
  90. n88=  play -c $me $mircdirsistema\raw.txt 300
  91. n89=  unset %token | unset %total | unset %a | unset %addr* | unset %clone* | unset %chan | unset %option | halt
  92. n90=}
  93. n91=#clones end
  94. n92=#filterkick off
  95. n93=raw 352:* {
  96. n94=  if (%fkaddress == 1) {
  97. n95=    if (%fkip isin $parm3) {
  98. n96=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  99. n97=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  100. n98=      kick $parm2 $parm6 Kick por Filtro: %fkip
  101. n99=    }
  102. n100=    if (%fkip isin $parm4) {
  103. n101=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  104. n102=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  105. n103=      kick $parm2 $parm6 Kick por Filtro: %fkip
  106. n104=    }
  107. n105=  }
  108. n106=  if (%fkclones == 1) {
  109. n107=    if ($parm4 !isin %address) { %address = %address $parm4 }
  110. n108=    if ([ %addr [ $+ [ $parm4 ] ] ] != $null) {
  111. n109=      if ([ %clone [ $+ [ $parm4 ] ] ] == $null) {
  112. n110=        set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] $parm6
  113. n111=      }
  114. n112=      else {
  115. n113=        set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] $parm6
  116. n114=      }
  117. n115=    }
  118. n116=    else {
  119. n117=      set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6
  120. n118=    }
  121. n119=  }
  122. n120=  if (%fkaway == 1) {
  123. n121=    if (G isin $parm7) {
  124. n122=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  125. n123=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  126. n124=      kick $parm2 $parm6 Kick por Filtro: Usuarios Away
  127. n125=    }
  128. n126=  }
  129. n127=  if (%fknoaway == 1) {
  130. n128=    if (H isin $parm7) {
  131. n129=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  132. n130=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  133. n131=      kick $parm2 $parm6  Kick por Filtro: Usuarios No Away
  134. n132=    }
  135. n133=  }
  136. n134=  if (%fkircop == 1) {
  137. n135=    if (* isin $parm7) {
  138. n136=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  139. n137=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  140. n138=      kick $parm2 $parm6 Kick por Filtro: IRCOps
  141. n139=    }
  142. n140=  }
  143. n141=  if (%fkop == 1) {
  144. n142=    if (@ !isin $parm7) { halt }
  145. n143=    if ($parm6 == $me) { halt }
  146. n144=    if (%fkban == 1) { ban $parm2 $parm6 2 }
  147. n145=    kick $parm2 $parm6 Kick por Filtro: Usuarios Con Op
  148. n146=  }
  149. n147=  if (%fknonop == 1) {
  150. n148=    if (@ isin $parm7) { halt }
  151. n149=    if (%fkban == 1) { ban $parm2 $parm6 2 }
  152. n150=    kick $parm2 $parm6 Kick por Filtro: Usuarios Sin Op
  153. n151=  }
  154. n152=  if (%fkvoice == 1) {
  155. n153=    if (+ isin $parm7) {
  156. n154=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  157. n155=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  158. n156=      kick $parm2 $parm6 Kick por Filtro: Usuarios con Voz
  159. n157=    }
  160. n158=  }
  161. n159=  if (%fknovoice == 1) {
  162. n160=    if (+ !isin $parm7) {
  163. n161=      if ($parm6 isop $parm2) { if (%fkops == 0) { halt } } | if ($parm6 == $me) { halt }
  164. n162=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  165. n163=      kick $parm2 $parm6 Kick por Filtro: Usuarios Sin Voz
  166. n164=    }
  167. n165=  }
  168. n166=  halt
  169. n167=}
  170. n168=raw 315:* {
  171. n169=  if (%fkclones == 1) {
  172. n170=    set %a 1
  173. n171=    :next
  174. n172=    set %token $token(%a,32,%address)
  175. n173=    if (%token == $null) { goto done } | else {
  176. n174=      if ([ %clone [ $+ [ %token ] ] ] != $null) {
  177. n175=        inc %a | set %fclone [ %clone [ $+ [ %token ] ] ]
  178. n176=        if (%fclone == $null) { goto kickdone } | set %t 1
  179. n177=        :kickclone
  180. n178=        set %ftoken $token(%t,32,%fclone)
  181. n179=        if (%ftoken == $null) { goto kickdone } | else {
  182. n180=          if (%ftoken isop %chan) { if (%fkops == 0) { goto kickdone } }
  183. n181=          if (%fkban == 1) { ban %chan %ftoken 2 }
  184. n182=          kick %chan %ftoken Kick por Filtro: Clones | inc %t | goto kickclone
  185. n183=        }
  186. n184=        :kickdone
  187. n185=        unset [ %clone [ $+ [ %token ] ] ]
  188. n186=        unset [ %addr [ $+ [ %token ] ] ]
  189. n187=        goto next
  190. n188=      }
  191. n189=      else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next }
  192. n190=    }
  193. n191=    :done
  194. n192=    unset %token | unset %a | unset %addr* | unset %clone* | unset %ftoken | unset %t | unset %fkclones
  195. n193=  }
  196. n194=  echo 6 -a 4,8ORBITAL: Kick por Filtro Finalizado! | unset %fkircop | unset %fkop | unset %fknonop | unset %fkvoice | unset %fknovoice | unset %fkops
  197. n195=  unset %fkaddress | unset %fkban | unset %fkip | .disable #filterkick | unset %chan | unset %fclone | unset %fkaway | unset %fknoaway | halt
  198. n196=}
  199. n197=#filterkick end
  200. n198=#cdban off
  201. n199=raw 367:* {
  202. n200=  if (%banz == 4 ) {
  203. n201=    mode $parm2 -bbb %ban1 %ban2 %ban3
  204. n202=    set %banz 1
  205. n203=  }
  206. n204=  set %ban $+ %banz $parm3
  207. n205=  inc %banz
  208. n206=  halt
  209. n207=}
  210. n208=raw 368:* {
  211. n209=  mode $parm2 -bbb %ban1 %ban2 %ban3
  212. n210=  .disable #cdban
  213. n211=  halt
  214. n212=}
  215. n213=#cdban end
  216. n214=#chan off
  217. n215=raw 352:* {
  218. n216=  if ($parm4 isin %address) { inc %clono } | else { %address = %address $parm4 }
  219. n217=  if (* isin $parm7) { inc %ircop }
  220. n218=  if (@ isin $parm7) { inc %op } | else { inc %noop }
  221. n219=  if (+ isin $parm7) { inc %voz } | else { inc %novoz }
  222. n220=  if (G isin $parm7) { inc %away }
  223. n221=  if (H isin $parm7) { inc %aqui }
  224. n222=  inc %total
  225. n223=  halt
  226. n224=}
  227. n225=raw 332:* { set %topico $parm3* }
  228. n226=raw 324:* { set %modos $parm3* }
  229. n227=raw 315:* {
  230. n228=  write -c $mircdirsistema\raw.txt
  231. n229=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 6 %chan 4,8ORBITAL: Estadφsticas para  $+ %chan $+  }
  232. n230=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan 4,8ORBITAL: Estadφsticas para  $+ %chan $+  }
  233. n231=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 3 %chan Modos: %modos ** Topic: %topico  }
  234. n232=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Modos: %modos ** Topic: %topico }
  235. n233=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 3 %chan Clones: %clono ** IRCOps: %ircop }
  236. n234=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Clones: %clono ** IRCops: %ircop }
  237. n235=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 3 %chan Ops: %op ** No-Ops: %noop }
  238. n236=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Ops: %op ** No-Ops: %noop }
  239. n237=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 3 %chan Voz (+v): %voz ** No-Voz (-v): %novoz }
  240. n238=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Voz (+v): %voz ** No-Voz (-v): %novoz }
  241. n239=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 3 %chan Away: %away ** Aquφ: %aqui }
  242. n240=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Away: %away ** Aqui: %aqui }
  243. n241=  if (%option == 1) { write $mircdirsistema\raw.txt /echo 6 %chan Fin de estadφsticas ** Total: %total }
  244. n242=  if (%option == 2) { write $mircdirsistema\raw.txt /msg %chan Fin de Estadisticas ** Total: %total }
  245. n243=  play -c $me $mircdirsistema\raw.txt 300
  246. n244=  unset %clono | unset %ircop | unset %op | unset %noop | unset %voz | unset %novoz | unset %away | unset %option
  247. n245=  unset %aqui | unset %address | unset %total | unset %modos + | set %topico Sin topic | unset %chan | .disable #chan | halt
  248. n246=}
  249. n247=#chan end
  250. n248=#IRCop off
  251. n249=raw 352:*: inc %total | echo 3 -a %total $+ .6 $parm6 1* $+ $parm5 | halt
  252. n250=raw 315:*: {
  253. n251=  echo 6 -a Fin del IRCop Scan ** Total: %total 
  254. n252=  .disable #IRCop | halt
  255. n253=}
  256. n254=#IRCop end
  257. n255=#awayscan off
  258. n256=raw 352:* {
  259. n257=  if (G isin $parm7) { inc %usersaway | %sawaydisplay 3 $+ %usersaway $+ :6 $parm6 12(10 $+ $parm4 $+ 12) }
  260. n258=  if (H isin $parm7) { inc %usershere }
  261. n259=}
  262. n260=raw 315:* {
  263. n261=  %sawaydisplay Usuarios Away: 10 %usersaway
  264. n262=  %sawaydisplay Usuarios No-Away: 10 %usershere
  265. n263=  %sawaydisplay Fin del escaneo de Usuarios Away
  266. n264=  unset %users*
  267. n265=  unset %sawaydisplay
  268. n266=  unset %sawaychan 
  269. n267=  .disable #awayscan | halt
  270. n268=}
  271. n269=#awayscan end
  272. n270=raw 352:*:echo 2 -s 12 $+ $parm6* 4 $+ $parm2 12 $+ $parm3 $+ 2@10 $+ $parm4 2 $+ $parm5 | inc %contawho 1 | halt
  273. n271=raw 315:* { echo 4 -s 3Finalizado comando WHO. Encontrados %contawho 1 $+ $parm2 | set %contawho 0 | echo 3 -a 4,8ORBITAL: Mira el resultado en la ventana de Status | halt }
  274. n272=#whoiz on
  275. n273=raw 301:* {
  276. n274=  if (%whoecho == on) {
  277. n275=    echo -a 3Away:12 (2 $+ $parm3* $+ 12)
  278. n276=  }
  279. n277=  if (%whochan == on) {
  280. n278=    msg %chan -Away-: $parm3*
  281. n279=  }
  282. n280=}
  283. n281=raw 311: * {
  284. n282=  set %pais $parm4 
  285. n283=  if (%whoecho == on) {
  286. n284=    echo 6 -a 4,8ORBITAL Whois
  287. n285=    echo -a 3Nick:12 (2 $+ $parm2 $+ 12) 
  288. n286=    echo -a 3Direcci≤n:12 (2 $+ $parm3 $+ @ $+ $parm4 $+ 12) 
  289. n287=    echo -a 3Username o Frase:12 (2 $+ $parm6* 12) 
  290. n288=  }
  291. n289=  if (%whochan == on) {
  292. n290=    msg %chan Whois
  293. n291=    msg %chan -Nick-: $parm2
  294. n292=    msg %chan -Direcci≤n-: $parm3 $+ @ $+ $parm4
  295. n293=    msg %chan -Username o Frase-: $parm6*
  296. n294=  }  
  297. n295=}
  298. n296=raw 312: * {
  299. n297=  if (%whoecho == on) {
  300. n298=    echo -a 3Server:12 (2 $+ $parm3 $+ 12) 
  301. n299=    echo -a 3Server Info:12 (2 $+ $parm4* $+ 12)
  302. n300=  }
  303. n301=  if (%whochan == on) {
  304. n302=    msg %chan -Server-: $parm3
  305. n303=    msg %chan -Nota del Server-: $parm4*
  306. n304=  }
  307. n305=}
  308. n306=raw 313: * {
  309. n307=  if (%whoecho == on) {
  310. n308=    echo -a 3IRCOp:12 (2 $+ $parm2 es un IRCOp $+ 12)
  311. n309=  }
  312. n310=  if (%whochan == on) {
  313. n311=    msg %chan -IRCOp-: $parm2 es un IRCOp
  314. n312=  }
  315. n313=}
  316. n314=raw 317: * {
  317. n315=  if (%whoecho == on) {
  318. n316=    echo -a 3Inactivo:12 (2 $duration($parm3) $+ 12) 
  319. n317=  }
  320. n318=  if (%whochan == on) {
  321. n319=    msg %chan -Inactivo-: $duration($parm3)
  322. n320=  }
  323. n321=}
  324. n322=raw 319: * {
  325. n323=  if (%whoecho == on) {
  326. n324=    echo -a 3Canal(es):12 (2 $+ $parm3* $+ 12) 
  327. n325=  }
  328. n326=  if (%whochan == on) {
  329. n327=    msg %chan -Canal(es)-: $parm3*
  330. n328=  }
  331. n329=}  
  332. n330=raw 318: * { 
  333. n331=  if (%whoecho == on) {
  334. n332=    avpais %pais
  335. n333=    echo 6 -a Fin del Whois
  336. n334=    set %whoecho OFF
  337. n335=  }
  338. n336=  if (%whochan == on) {
  339. n337=    avpais %pais
  340. n338=    msg %chan Fin del Whois
  341. n339=    set %whochan OFF
  342. n340=  }
  343. n341=}
  344. n342=#whoiz end
  345. n343=#whowaz on
  346. n344=raw 314: * {
  347. n345=  echo 6 -a 4,8ORBITAL Whowas
  348. n346=  echo -a 10Nick:12 (2 $+ $parm2 $+ 12) 
  349. n347=  echo -a 10Direcci≤n:12 (2 $+ $parm3 $+ @ $+ $parm4 $+ 12) 
  350. n348=  echo -a 10Username o Frase:12 (2 $+ $parm5* $+ 12) 
  351. n349=}
  352. n350=raw 369: * { echo 6 -a Fin del Whowas }
  353. n351=#whowaz end
  354. n352=#away off
  355. n353=raw 306: * { 
  356. n354=  if (%awayswitch == ON) {
  357. n355=    echo 3 -a 4,8ORBITAL: Ahora estßs marcado como Away,  para volver, pulsa F6 
  358. n356=    set %tempnick %normnick | nick %awaynick 
  359. n357=  }
  360. n358=}
  361. n359=raw 305: * {
  362. n360=  if (%awayswitch == ON) {
  363. n361=    echo 3 -a 4,8ORBITAL: Ya no estßs Away | set %normnick %tempnick 
  364. n362=    nick %normnick
  365. n363=    set %awayswitch OFF
  366. n364=  }
  367. n365=}
  368. n366=#away end
  369. n367=#tracekill off
  370. n368=raw 314:* {
  371. n369=  inc %tracedkill 1
  372. n370=  if (%tracedkill == 2) { goto gotkiller }
  373. n371=  else goto nocando
  374. n372=  halt
  375. n373=  :gotkiller
  376. n374=  echo 3 -a 4,8ORBITAL: Trazado de  $+ $parm2 $+  satisfactorio
  377. n375=  echo 3 -a Collider: %tracednick ( $+ %realaddie $+ @ $+ %tracedaddie $+ ) [[ $+ %tracedname $+ ] 
  378. n376=  echo 3 -a Vφctima: $parm2 ( $+ $parm3 $+ @ $+ $parm4 $+ ) [[ $+ $parm6* $+ ] 
  379. n377=  halt
  380. n378=  :nocando
  381. n379=  %tracednick = $parm2
  382. n380=  %realaddie = $parm3
  383. n381=  %tracedaddie = $parm4
  384. n382=  %tracedname = $parm6*
  385. n383=}
  386. n384=raw 369:* {
  387. n385=  unset %tracedkill 
  388. n386=  unset %tracednick 
  389. n387=  unset %realaddie 
  390. n388=  unset %tracedaddie 
  391. n389=  unset %tracedname
  392. n390=  .disable #tracekill
  393. n391=}
  394. n392=#tracekill end
  395. n393=#linklooker off
  396. n394=raw 364:*: {
  397. n395=  if (%createlist == on) { /inc %nnn 1 | /write $mircdir\servlist.txt $parm2 }   
  398. n396=  elseif (%addtolist == on) { /write $mircdir\servtmp.txt $parm2 }
  399. n397=  elseif (%searching == on) { /write $mircdir\servtmp.txt $parm2 }
  400. n398=}  
  401. n399=raw 365:*: {
  402. n400=  if (%createlist == on) {
  403. n401=    /echo 4 -a A±adidos %nnn servidor(es). Operaci≤n completa. 
  404. n402=    /set %createlist off | /unset %nnn | .disable #linklooker
  405. n403=    /halt
  406. n404=  }
  407. n405=  elseif (%addtolist == on) { 
  408. n406=    /set %addtolist off
  409. n407=    /addtolist
  410. n408=    /halt
  411. n409=  }
  412. n410=  elseif (%searching == on) {
  413. n411=    /set %searching off
  414. n412=    /splitsearch
  415. n413=    /halt
  416. n414=  }
  417. n415=}
  418. n416=#linklooker end
  419. n417=#servcheck off
  420. n418=raw 402:* {
  421. n419=  echo 2 -a 4,8ORBITAL: Resultado del trazado - El server  $+ %splitserv $+  no existe o estß en SPLIT
  422. n420=  echo 6 -a Pulsa F11 para entrar en %splitserv (Saldras del servidor actual)
  423. n421=  halt
  424. n422=}
  425. n423=#servcheck end
  426. n424=#miscraw on
  427. n425=raw 1:* halt
  428. n426=raw 2:* halt
  429. n427=raw 3:* halt
  430. n428=raw 4:* halt
  431. n429=raw 401:* { echo 3 -a 4,8ORBITAL: No existe nadie con el nick $parm2 $+ ... Comprueba que no te hayas equivocado | halt }
  432. n430=raw 402:* { echo 3 -a 4,8ORBITAL: No existe nadie con el nick $parm2 $+ ... Comprueba que no te hayas equivocado | halt }
  433. n431=raw 404:* { if $server != $nick echo 3 -a 4,8ORBITAL: $parms $nick estß desynched de la red de irc | else echo 3 -a 4,8ORBITAL: No puedes hablar en $parm2 $+ . Estß moderado (+m) o no admite mensajes exteriores (+n) | halt }
  434. n432=raw 432:* { echo 3 -a 4,8ORBITAL: Intentaste utilizar caracteres no permitidos en tu nick... Ponte otro nick | halt }
  435. n433=raw 433:* { echo 3 -a 4,8ORBITAL: El nick $parm2 estß en uso... Prueba otro nick | wi $parm2 | halt }
  436. n434=raw 441:* { if $server != $nick echo 3 -a 4,8ORBITAL: $parms $nick estß desynched de la red de irc | else echo 3 -a 4,8ORBITAL: $parm2 no estß en $parm3 | halt }
  437. n435=raw 442:* { if $server != $nick echo 3 -a 4,8ORBITAL: $parms $nick estß desynched de la red de irc | else echo 3 -a 4,8ORBITAL: No estßs en $parm2 | halt }
  438. n436=raw 465:* { echo 4 -a 4,8ORBITAL: Te han puesto un K-Line ( $+ $parms $+ ). Estßs BANEADO de ese server. Prueba otro | halt }
  439. n437=raw 471:* { echo 2 -a 4,8ORBITAL: El canal $parm2 estß lleno (+l). Espera que salga alguien del canal, o que quiten el +l | halt }
  440. n438=raw 473:* { echo 2 -a 4,8ORBITAL: El canal $parm2 estß invite only (+i). Te tienen que invitar para poder entrar | halt }
  441. n439=raw 474:* { echo 4 -a 4,8ORBITAL: Estßs BANEADO de $parm2 | halt }
  442. n440=raw 475:* { echo 2 -a 4,8ORBITAL: El canal $parm2 estß protegido con clave (+k). Necesitas la clave correcta | halt }
  443. n441=raw 482:* { if $server != $nick echo 3 -a 4,8ORBITAL: $parms $nick estß desynched de la red de irc | halt }
  444. n442=raw 443:* { echo 3 -a 4,8ORBITAL: $parm2 ya estß en $parm3 | halt }
  445. n443=raw 481:* { echo 4 -a 4,8ORBITAL: No tienes autorizaci≤n para hacer eso, no eres IRCOp | halt }
  446. n444=raw 341:* { echo 3 -a 4,8ORBITAL: Invitando a $parm2 al canal $parm3 $+ ... | halt }
  447. n445=raw 381:* { echo 4 -a 4,8ORBITAL: Ahora eres IRCOp! :-) | halt }
  448. n446=raw 472:* { echo 3 -a 4,8ORBITAL: El modo " $+ $parm2  $+ " no existe... Comprueba que no te hayas equivocado | halt }
  449. n447=raw 405:* { echo 3 -a 4,8ORBITAL: Estßs en demasiados canales, no puedes entrar en mßs | halt }
  450. n448=raw 324:* { echo 3 -s Los modos de  $+ $parm2 $+  son: $parm3* | halt }
  451. n449=raw 331:* { echo 3 -a 4,8ORBITAL: No se ha puesto topic a este canal $parm2 $+ . | halt }
  452. n450=raw 332:* { echo 3 -s 4,8ORBITAL: El topic del canal $parm2 es $parm3* $+ . | halt }
  453. n451=raw 333:* { echo 3 -s El topic del canal $parm2 fue puesto por $parm3 en fecha $asctime($ctime - $parm4) $+ . | halt }
  454. n452=raw 328:* { echo 3 -s 4,8ORBITAL: La pagina web puesta para el canal es $parm2 es $parm3* $+ . | halt }
  455. n453=raw 329:* { echo 3 -s El canal $parm2 fue creado en fecha $asctime($ctime - $parm3) $+ . | halt }
  456. n454=raw 221:* { echo 3 -a 4,8ORBITAL: Tus modos de usuario han sido puestos como $parm2 | halt }
  457. n455=raw 216:* { /msg $me 4,8ORBITAL: 5,7El siguiente usuario ha sido k-lineado de $server  | /msg $me 4 $+ $parm3* $+  | halt }
  458. n456=raw 243:* { /msg $me 4,8ORBITAL: 11,6El siguiente usuario es IRCop en $server  | /msg $me 6 $+ $parm3* $+  | halt }
  459. n457=; raw 315:* { echo 3 -a $parm2 Finalizado /Who | halt }
  460. n458=raw 318:* halt
  461. n459=raw 323:* { echo 3 -a Finalizada lista de canales }
  462. n460=raw 365:* { echo 3 -a Finalizada la lista de Links en $parm2 }
  463. n461=raw 376:* { echo 3 -a Finalizado Comando /MOTD | halt }
  464. n462=raw 403:* { echo 3 -a 4,8ORBITAL: No existe ningun canal llamado $parm2 | halt }
  465. n463=raw 421:* { echo 3 -a 4,8ORBITAL: Comando Incorrecto }
  466. n464=raw 464:* echo 3 -a 4,8ORBITAL: Password Incorrecta!
  467. n465=raw 461:* echo 3 -a 4,8ORBITAL: El comando 6/ $+ $parm2 $+  necesita mas informacion | /halt
  468. n466=raw 467:* echo 3 -a 4,8ORBITAL: La password de canal en 6 $+ $parm2 $+  ya ha sido puesta | /halt
  469. n467=raw 501:* { echo 3 -a 4,8ORBITAL: Este modo de canal no existe }
  470. n468=raw 502:* { echo 3 -a 4,8ORBITAL: No puedes cambiar el modo de otros usuarios }
  471. n469=raw 999:* { echo 3 -a 4,8ORBITAL: Este comando no existe. | halt }
  472. n470=raw 438:* { echo 3 -a 4,8ORBITAL: 10 $+ $parm2 $+  no puede ser tu nuevo nick porque estas cambiando de nick demasiado rapido, espera $mid(6,2,$parm8*) segundos | halt }
  473. n471=raw 353:*: {
  474. n472=  set %nam Nombres de $parm3
  475. n473=  set %nto 4 | set %col 3 | set %nnic 0
  476. n474=  :L1
  477. n475=  set %tok $gettok( $parms , %nto ,32)
  478. n476=  if ( %tok == $null ) goto finames
  479. n477=  %nam = %nam  $+ %col %tok
  480. n478=  inc %nto | inc %nnic
  481. n479=  inc %col 11 | if ( %col > 14 ) set %col 3
  482. n480=  goto L1
  483. n481=  :finames
  484. n482=  echo -s %nam
  485. n483=  unset %nam | unset %tok | unset %col | unset %nto
  486. n484=  halt
  487. n485=}
  488. n486=raw 366:*: echo 4 -s 3Finalizado comando NAMES. %nnic 3usuarios visibles en 1 $+ $parm2 | set %nnic 0 | halt
  489. n487=#miscraw end
  490. n488=#bans off
  491. n489=raw 367:* { echo 3 -a 4,8ORBITAL: Bans de  $+ $parm2 $+ : $parm3* }
  492. n490=#bans end
  493. n491=#antikill on
  494. n492=raw 436:* { 
  495. n493=  nick $me $+ -
  496. n494=  echo 4 -a 4,8ORBITAL: Colision de Nicks Detectada! Cambiando de nick...
  497. n495=}
  498. n496=#antikill end
  499. n497=#portscan off
  500. n498=raw 211:* {
  501. n499=  if $left(4,$right(5,$parm2)) isnum {
  502. n500=    if (%porscan == $null) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %porscan active | set %portlist $left(4,$right(5,$parm2)) }
  503. n501=    else { set %portlist1 %portlist | set %portlist %portlist1 $+ ,  $+ $left(4,$right(5,$parm2)) | set %curval $parm5 + $parm7
  504. n502=      if (%curval < %bestportval) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %portlist1 %portlist | unset %portlist1 }
  505. n503=  unset %curval } }
  506. n504=  halt
  507. n505=}
  508. n506=raw 219:*: {
  509. n507=  if ($parm2 == l) { echo 2 -s Resultado del Escaneo de Puertos del servidor 6 $+ $server $+  | echo 2 -s Los puertos disponibles son: %portlist | echo 2 -s El mejor puerto es: %bestport ,  a %bestportval Kilobytes | unset %portlist | unset %porscan | unset %bestportval | /.timer 1 20 /unset %bestport | /.timer 1 1 /.disable #portscan | halt }
  510. n508=}
  511. n509=#portscan end
  512. n510=#nuke off
  513. n511=raw 311:*: set %nukeip $parm4 | halt
  514. n512=raw 312:*: set %nukeserver $parm3 | halt
  515. n513=raw 301:*: halt
  516. n514=raw 313:*: halt
  517. n515=raw 319:*: halt
  518. n516=raw 317:*: halt
  519. n517=raw 318:*: {
  520. n518=  run $mircdirutil\click4.exe %nukeserver %nukeip -clp %nukei -chp %nukef -slp %nukept -shp %nukeptf -ports %ginsui -time %ginsuf %forma
  521. n519=  unset %forma
  522. n520=  .disable #nuke | .enable #whoiz | echo 4 -a Nukeando %nukeip en %nukeserver | halt 
  523. n521=}
  524. n522=#nuke end
  525.